home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / AGENT.PRG next >
Text File  |  1996-01-14  |  3KB  |  176 lines

  1. PROCEDURE pagnt          
  2.  
  3. DO agn
  4.  
  5. PRIVATE page
  6. IF Len(agnt) > 15
  7.    page = 15
  8. ELSE
  9.    page = Len(agnt)
  10. ENDIF
  11.  
  12. SET COLOR TO GR+/R
  13. @ 21,0 CLEAR TO 23,79
  14. @ 21,5 SAY "Up/Dn Arrow "
  15. @ 22,5 SAY "<Enter> "
  16. SET COLOR TO W+/R
  17. @ 21,17 SAY "= Move within pick list"
  18. @ 22,13 SAY "= Select from pick list"
  19.  
  20. SET COLOR TO BG/BG
  21. @ 3,45 CLEAR TO page+4,74
  22. SET COLOR TO N/BG
  23. @ 3,45 TO page+4,74
  24.  
  25. x = 1
  26. y = 4
  27. DO WHILE x <= Len(agnt) .AND. y <= 18
  28.    @ y,47 SAY agnt[x]
  29.    x = x + 1
  30.    y = y + 1
  31. ENDDO
  32.  
  33. SET COLOR TO GR+/BG
  34. @ 4,47 SAY agnt[1]
  35.  
  36. x = 1
  37. y = 4
  38. SET COLOR TO N/N
  39. @ 2,0 GET charin
  40. DO WHILE .T.
  41.    READ
  42.    DO CASE
  43.       CASE LastKey() = 5                         && <Up Arrow>
  44.            IF x = 1
  45.               LOOP
  46.            ENDIF
  47.            SET COLOR TO N/BG
  48.            IF y = 4
  49.               x = x - 1
  50.               DO WHILE y <= 18
  51.                 @ y,47 SAY agnt[x]
  52.                 x = x + 1
  53.                 y = y + 1
  54.               ENDDO
  55.               x = x - page
  56.               y = 4
  57.            ELSE
  58.               @ y,47 SAY agnt[x]
  59.               x = x - 1
  60.               y = y - 1
  61.            ENDIF
  62.            SET COLOR TO GR+/BG
  63.            @ y,47 SAY agnt[x]
  64.            LOOP
  65.            
  66.       CASE LastKey() = 13                        && <Enter>
  67.            SELECT a
  68.            brok = agnt[x]
  69.            DO cls WITH 3,45,page+4,74
  70.            EXIT
  71.       
  72.       CASE LastKey() = 24                        && <Dn Arrow>
  73.            IF x = Len(agnt)
  74.               LOOP
  75.            ENDIF
  76.            SET COLOR TO N/BG
  77.            IF y = 18
  78.               x = x - page + 2
  79.               y = 4
  80.               DO WHILE x < Len(agnt) .AND. y < 18
  81.                 @ y,47 SAY agnt[x]
  82.                 x = x + 1
  83.                 y = y + 1
  84.               ENDDO
  85.            ELSE
  86.               @ y,47 SAY agnt[x]
  87.               x = x + 1
  88.               y = y + 1
  89.            ENDIF
  90.            SET COLOR TO GR+/BG
  91.            @ y,47 SAY agnt[x]
  92.            LOOP
  93.       
  94.         ENDCASE
  95. ENDDO
  96. RETURN
  97.  
  98.  
  99.  
  100.  
  101.  
  102. PROCEDURE atag
  103.  
  104. PRIVATE cnt
  105. DO agn
  106. SELECT a
  107. COUNT TO cnt
  108. GOTO TOP
  109.  
  110. x = 1
  111. z = 1
  112. DO WHILE x <= 50 .AND. z <= Len(agnt)
  113.    GOTO TOP
  114.    y = 0
  115.  
  116.    DO WHILE x <= 50 
  117.       IF broker = agnt[z]
  118.          dummy = aIns(tarray,1)
  119.          tarray[1] = pic1
  120.          x = x + 1
  121.       ENDIF
  122.       
  123.       y = y + 1
  124.       IF y < cnt
  125.          SKIP
  126.       ELSE
  127.          EXIT
  128.       ENDIF
  129.    ENDDO
  130.    z = z + 1
  131. ENDDO
  132.  
  133. IF x = 50 .AND. y < cnt  .AND. z < Len(agnt)
  134.    DO BoxW WITH 5,16,9,62
  135.    @ 6,18 SAY "The VIEW command is limited to 50 listings."
  136.    @ 7,18 SAY "To view the listings for the entire agency,"
  137.    @ 8,18 SAY "view each broker's listings separately." 
  138.    key = InKey(4)
  139. ENDIF
  140.  
  141. RETURN
  142.  
  143.  
  144.  
  145.  
  146.  
  147. PROCEDURE agn
  148.  
  149. SELECT c
  150. PRIVATE cnt
  151.  
  152. COUNT TO cnt FOR agency = comp           && number of realtors in this agency
  153. GOTO TOP
  154.  
  155. PUBLIC cq
  156. cq = cnt
  157. PUBLIC agnt[cq]
  158.  
  159. COUNT TO cnt 
  160. GOTO TOP
  161. y = 1
  162. x = 1
  163. DO WHILE y < cnt       
  164.    IF agency = comp
  165.       agnt[x] = uname
  166.       x = x + 1
  167.    ENDIF
  168.    y = y + 1
  169.    SKIP
  170. ENDDO
  171. IF agency = comp
  172.    agnt[x] = uname
  173. ENDIF
  174.  
  175. RETURN
  176.